home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / tools / czesc_2 / ftransd_2.1a / arexx-scripts / ftdatei.ced < prev    next >
Text File  |  1995-09-28  |  1KB  |  67 lines
  1. /* $VER: FTDatei.ced 1.1 (05.06.95)
  2.  *
  3.  * FTrans-CygnusEd ARexx-Script (c) Copyright 1995 by Rainer Hess
  4.  *
  5.  * Übersetzt die ganze Datei,im aktiven Fenster in eine andere Sprache.
  6.  *
  7.  * -------------------------------------------------------------
  8.  * WICHTIG: In Zeile 15 den richtigen Pfad für FTrans angeben!
  9.  *          z.b: WORK:FTrans/FTrans
  10.  * -------------------------------------------------------------
  11.  *
  12.  */
  13.  
  14. cr='0A'x
  15.  
  16. FTRANSPATH = 'RUN SAS:PRG/FT/FTrans'
  17.  
  18. options results
  19.  
  20. ok = show("P","FTRANS.1")            /* Läuft FTrans schon? */
  21.  if ok = 0 then do
  22.     address command FTRANSPATH            /* Wenn FTRans nicht läuft, FTrans starten. */
  23.     address command WaitForPort FTRANS.1    /* Warte bis FTrans gestartet ist */
  24.  end
  25.  
  26. address 'rexx_ced'
  27.  
  28. STATUS 21
  29. if result = ' ' then do
  30.  okay1 "Diese Datei hat noch keinen Namen," || cr || "erst abspeichern dann übersetzen."
  31.  exit
  32.  end
  33.  
  34. STATUS 19
  35. datei = result
  36.  
  37. OPEN NEW
  38.  
  39. BEG OF FILE
  40. Text "   Bitte warten...  »" (Datei) "«  wird übersetzt"; 'END OF LINE'
  41.  
  42. address 'FTRANS.1'
  43.  
  44. LockGUI
  45.  
  46. VORSCHLAG
  47. old_vorschlag = result        /* alten Zustand merken */
  48.  
  49. AUTOLERNEN
  50. old_autolernen = result        /* alten Zustand merken */
  51.  
  52. VORSCHLAG OFF            /* Ausschalten */
  53. AUTOLERNEN OFF            /* Ausschalten */
  54.  
  55. FTText datei (datei).Deutsch
  56.  
  57. VORSCHLAG old_vorschlag        /* alten Zustand wieder herstellen */
  58. AUTOLERNEN old_autolernen    /* alten Zustand wieder herstellen */
  59.  
  60. UnlockGUI
  61.  
  62. address 'rexx_ced'
  63. Delete line
  64. OPEN (datei).Deutsch
  65.  
  66. exit 0
  67.